home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 76 / DVD Actual 1 Marzo 2003.iso / Trial / TurboCAD 7.1 Pro / Data.Cab / F25858_Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-10  |  1.7 KB  |  90 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Type ContGeo
  4.     NVer As Long
  5.     xVer() As Double
  6.     yVer() As Double
  7.     Loc() As String
  8.     TakePart As Boolean
  9.     Closed As Boolean
  10.     Pr As Boolean
  11. End Type
  12. Type DDD
  13.     LL As Double
  14.     xx As Double
  15.     yy As Double
  16.     jj As Long
  17.     jj1 As Long
  18.     kk As Long
  19. End Type
  20.  
  21. Type TTT
  22.     Bet As Double
  23.     jInit As Long
  24.     kk As Long
  25.     ddir As Integer
  26. End Type
  27. Type IntPoint
  28.     nInt As Long
  29.     xInt() As Double
  30.     yInt() As Double
  31.     iInt() As Long
  32.     jInt() As Long
  33.     Pr() As Boolean
  34. End Type
  35. Type HorizInt
  36.     xInt As Double
  37.     yInt As Double
  38.     Ncont As Long
  39. End Type
  40. Type GrWithUnVis
  41.     xVer() As Double
  42.     yVer() As Double
  43.     Pen() As Boolean
  44.     TakePart() As Boolean
  45. End Type
  46.  
  47.  
  48. Global NotInclude() As String
  49. Global NIncl As Long
  50. Global objApp As Application
  51. Global Drs As Drawings
  52. Global Dr As Drawing
  53. Global Gr As Graphic
  54. Global GrDup As Graphic
  55. Global Grs As Graphics
  56. 'Global GrSets As GraphicSets
  57. 'Global GrSet As GraphicSet
  58. Global Vis As Views
  59. Global Vi As View
  60. Global Vers As Vertices
  61. Global Gcont As Graphic
  62. Global PicRes As PickResult
  63. Global PicEnt As PickEntry
  64. Global FirstID As Long
  65. Global xClick As Double
  66. Global yClick As Double
  67. Global iNSel As Long
  68. Global Result As Boolean
  69.  
  70. Global Const Eps0 = 0.000001
  71. Global Eps As Double
  72. Global Const Pi = 3.14159265359
  73. Global Operation As String
  74. Global TryAgain As Boolean
  75.  
  76.   
  77. Sub Main()
  78.     ReDim NotInclude(7)
  79.     NotInclude(0) = "TEXT"
  80.     NotInclude(1) = "TCW30POINT"
  81.     NotInclude(2) = "ARC"
  82.     NotInclude(3) = "TCW25DimLin"
  83.     NotInclude(4) = "TCW25DimDat"
  84.     NotInclude(5) = "TCW25DimAng"
  85.     NotInclude(6) = "TCW25DblLine"
  86.     NIncl = 6
  87.     iNSel = 0
  88. End Sub
  89.  
  90.